home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / pdf2dsc.ps < prev    next >
Text File  |  2003-01-03  |  5KB  |  155 lines
  1. %    Copyright (C) 1994, 1995, 1996, 1997, 1998 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % pdf2dsc.ps
  8. % read pdf file and produce DSC "index" file.
  9. %
  10. % Input  file is named PDFname
  11. % Output file is named DSCname
  12. %
  13. % Run using:
  14. %  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
  15. % Then display the PDF file with
  16. %  gs tempfilename
  17. %
  18. % Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:
  19. %    Add DocumentMedia, PageMedia comments
  20. %    Use inherited BoundingBox and Orientation
  21. %    Reformat, add new macro 'puts', generally clean up
  22. % Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
  23. %    Adds BoundingBox and Orientation if available.
  24. % Modified by rjl/lpd 9/19/96
  25. %    Updates for compatibility with modified pdf_*.ps code for handling
  26. %      page ranges (i.e., partial files) better.
  27. % Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
  28. %    include Title and CreationDate DSC comments (these are displayed by
  29. %      Ghostview);
  30. %    reduce the size of typical output files by a factor of about 3.
  31. % Modified by L. Peter Deutsch 3/18/96:
  32. %    Removes unnecessary and error-prone code duplicated from pdf_main.ps
  33. % Modified by L. Peter Deutsch for GS 3.33
  34. % Originally by Russell Lang  1995-04-26
  35.  
  36. /DSCfile DSCname (w) file def
  37. systemdict /.setsafe known { .setsafe } if
  38.  
  39. /puts { DSCfile exch writestring } bind def
  40. /DSCstring 255 string def
  41. /MediaTypes 10 dict def
  42.  
  43. % (str1) (str2)  concatstr  (str1str2)
  44. /concatstr {
  45.   2 copy length exch length add string
  46.   dup dup 5 2 roll copy length
  47. % stack: newstring newstring str2 str1-length
  48.   exch putinterval
  49. } bind def
  50.  
  51.    GS_PDF_ProcSet begin
  52.    pdfdict begin
  53.    PDFname (r) file
  54.    pdfopen begin
  55.    /FirstPage where { pop } { /FirstPage 1 def } ifelse
  56.    /LastPage where { pop } { /LastPage pdfpagecount def } ifelse
  57.  
  58. % scan through for media sizes, keep them in the dictionary
  59.    FirstPage 1 LastPage {
  60.       pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute
  61.       aload pop 
  62.       3 -1 roll sub 3 1 roll exch sub exch
  63.       2 array astore 
  64.       aload 3 1 roll 10 string cvs exch 10 string cvs
  65.       (x) exch concatstr concatstr cvn
  66.       MediaTypes 3 1 roll exch put
  67.    } for
  68.  
  69. % write header and prolog
  70.    (%!PS-Adobe-3.0\n) puts
  71.    Trailer /Info knownoget
  72.     {
  73.       dup /Title knownoget
  74.        {
  75.          (%%Title: ) puts
  76.          DSCfile exch write==
  77.        }
  78.       if
  79.       /CreationDate knownoget
  80.        {
  81.          (%%CreationDate: ) puts
  82.          DSCfile exch write==
  83.        }
  84.       if
  85.     }
  86.    if
  87.    % This is really supposed to be sorted by frequency of usage...
  88.    (%%DocumentMedia: )
  89.    MediaTypes { 
  90.       exch pop
  91.       1 index puts
  92.       (y) puts dup 1 get DSCstring cvs puts
  93.       (x) puts dup 0 get DSCstring cvs puts 
  94.       ( ) puts dup 0 get DSCstring cvs puts
  95.       ( ) puts 1 get DSCstring cvs puts 
  96.       ( 70 white ()\n) puts
  97.       pop (%%+ )
  98.    } forall
  99.    pop
  100.  
  101.    (%%Pages: ) puts
  102.    LastPage FirstPage sub 1 add DSCstring cvs puts
  103.    (\n%%EndComments\n) puts
  104.    (%%BeginProlog\n) puts
  105.    (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
  106.    (/DSCPageCount 0 def\n) puts
  107.    (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts
  108.    (GS_PDF_ProcSet begin\npdfdict begin\n) puts
  109.    (%%EndProlog\n) puts
  110.    (%%BeginSetup\n) puts
  111.    DSCfile PDFname write==only
  112.    ( \(r\) file pdfopen begin\n) puts
  113.    (%%EndSetup\n) puts
  114.    % process each page
  115.    FirstPage 1 LastPage {
  116.        (%%Page: ) puts
  117.        dup DSCstring cvs puts
  118.        ( ) puts
  119.        dup DSCstring cvs puts
  120.        (\n) puts
  121.  
  122.        dup pdfgetpage
  123.        dup /MediaBox pget pop
  124.          (%%PageMedia: y) puts
  125.      aload pop 3 -1 roll sub DSCstring cvs puts
  126.      (x) puts exch sub DSCstring cvs puts
  127.      (\n) puts
  128.        dup /CropBox pget {
  129.          (%%PageBoundingBox: ) puts
  130.          {DSCfile exch write=only ( ) puts} forall
  131.          (\n) puts
  132.        } if
  133.        /Rotate pget {
  134.          (%%PageOrientation: ) puts
  135.          90 div cvi 4 mod dup 0 lt {4 add} if
  136.          [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts
  137.          (\n) puts
  138.        } if
  139.  
  140.        DSCfile exch DSCstring cvs writestring
  141.        ( DoPDFPage\n) puts
  142.     } for
  143.    currentdict pdfclose
  144.    end
  145.    end
  146.    end
  147. % write trailer
  148. (%%Trailer\n) puts
  149. (currentdict pdfclose\nend\nend\nend\n) puts
  150. (%%EOF\n) puts
  151. % close output file and exit
  152. DSCfile closefile
  153. quit
  154. % end of pdf2dsc.ps
  155.